SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROC [dbo].[SP_TXMVTO_CNTB_Q57]    
/*-------------------------------------------------------------------*/              
/*----- Empresa           : OFISIS S.A.                          ----*/              
/*----- Cliente           : OFISIS S.A.                          ----*/              
/*----- Sistema           : Contabilidad                         ----*/              
/*----- Modulo            : Empresa                              ----*/              
/*----- Programa          : Mantenimiento de Vouchers            ----*/              
/*----- Nombre            : SP_TXMVTO_CNTB_Q57                   ----*/              
/*----- Script            : TXMVTO_CNTB                          ----*/              
/*----- Desarrollado por  : Israel Estrada Polanco               ----*/              
/*----- Fecha             : 02/07/1997                           ----*/              
/*----- Base de Datos     : MS SQL Server                        ----*/              
/*----- Version BD        : 6.5                                  ----*/              
/*-------------------------------------------------------------------*/              
/*---- Modificado 1 por     : Percy Garc?a                       ----*/              
/*---- Fecha Modificaci?n   : 24/05/2003                         ----*/                  
/*---- Detalle Modificaci?n : Saca 2 campos para visualiz. distribuci?n ----*/                
/*-------------------------------------------------------------------*/              
/*---- Modificado 2 por     : Yessica Morales                       ----*/              
/*---- Fecha Modificaci?n   : 12/11/2003                         ----*/                  
/*---- Detalle Modificaci?n : Modificaci?n del estado de Desaprobaci?n de DES a DSP ----*/                
/*-------------------------------------------------------------------*/              
/*-------------------------------------------------------------------*/                
/*----- Modificado 3 por : percy garcia                          ----*/                
/*----- Fecha Modifica   : 04/09/2006                            ----*/                
/*----- Detalle Modifica : SE AUMENTO NUEVO CAMPO FECHA DE PAGO  ----*/                
/*-------------------------------------------------------------------*/                
/*-------------------------------------------------------------------*/                
/*----- Drop proc SP_TXMVTO_CNTB_Q57                             ----*/              
/*----- Grant all on SP_TXMVTO_CNTB_Q57 to PUBLIC                ----*/              
/*----- SP_TXMVTO_CNTB_Q57                                       ----*/              
/*-------------------------------------------------------------------*/              
              
As         
Declare        
@ISCO_EMPR TD_VC_002,              
@INNU_CNTB_EMPR TD_IN_001_CONT,              
@ISCO_UNID_CNTB TD_VC_003,              
@ISCO_OPRC_CNTB TD_VC_003,              
@INNU_ANNO TD_IN_004_ANNO,              
@INNU_MESE TD_IN_002_MESE,              
@ISNU_ASTO TD_VC_010,              
@ISCO_SELE TD_VC_003        
        
Select Top 1         
@ISCO_EMPR = CO_EMPR,        
@INNU_CNTB_EMPR = NU_CNTB_EMPR,        
@ISCO_UNID_CNTB = CO_UNID_CNTB,        
@ISCO_OPRC_CNTB = CO_OPRC_CNTB,        
@INNU_ANNO = NU_ANNO,              
@INNU_MESE = NU_MESE,        
@ISNU_ASTO = NU_ASTO,              
@ISCO_SELE = CO_SELE        
From #TWPARA_EMAA        
          
           
             
If @ISCO_SELE = 'APR' Or @ISCO_SELE = 'DIG' Or @ISCO_SELE = 'DSP'              
Begin              
Select a.NU_SECU, a.CO_CNTA_EMPR, b.DE_CNTA_EMPR, a.TI_AUXI_EMPR, c.NO_TIPO_AUXI,              
 a.CO_AUXI_EMPR, '', a.TI_DOCU, e.NO_DOCU, a.NU_DOCU, a.FE_DOCU, a.FE_DOCU_VENC,a.FE_PAGO,           
 a.TI_OPER, a.CO_MONE, a.TI_CAMB, a.FA_CAMB, a.FA_CAMB_DIAR, a.IM_MVTO_ORIG,               
 a.IM_MVTO_CNTB, a.CO_ORDE_SERV, a.NO_GIRA, a.FE_ENTR_CHEQ, a.FE_PROG_CHEQ,               
 a.DE_GLOS, a.TI_DOCU_REFE, a.NU_DOCU_REFE, a.FE_DOCU_REFE, a.SI_MVTO_CNTB,           
 a.FE_ASTO_CNTB, b.ST_AUXI_EMPR, b.ST_DOCU_CNTB, c.NV_INFO_AUXI, a.CO_CLAV_TAOR,           
 a.CO_USUA_MODI, a.FE_USUA_MODI, a.IM_MVTO_RETE, a.PO_DIST, a.NU_SECU_DIST,             
 a.TI_DOCU_DETR, a.NU_DOCU_DETR, a.FE_DOCU_DETR, a.CO_MEPA, a.ST_EXON_INAF, a.ST_COMP           
From TXMVTO_CNTB a           
  Left Outer Join TTAUXI_EMPR c          
  On c.CO_EMPR = a.CO_EMPR           
  and c.TI_AUXI_EMPR = a.TI_AUXI_EMPR          
  Left Outer Join TTDOCU_CNTB e           
  On e.TI_DOCU = a.TI_DOCU ,           
  TMPLAN_EMPR b          
Where a.CO_EMPR = @ISCO_EMPR           
and a.NU_CNTB_EMPR = @INNU_CNTB_EMPR           
and a.CO_UNID_CNTB = @ISCO_UNID_CNTB           
and a.CO_OPRC_CNTB = @ISCO_OPRC_CNTB           
and a.NU_ANNO = @INNU_ANNO           
and a.NU_MESE  = @INNU_MESE           
and a.NU_ASTO = @ISNU_ASTO           
and a.SI_MVTO_CNTB In ('APR', 'DIG', 'DSP')          
and b.CO_EMPR = a.CO_EMPR           
and b.NU_ANNO = 9999           
and b.CO_CNTA_EMPR = a.CO_CNTA_EMPR           
Order By a.NU_SECU           
End               
          
Else If @ISCO_SELE = 'ELI' Or @ISCO_SELE = 'ANU'               
Begin              
Select a.NU_SECU, a.CO_CNTA_EMPR, b.DE_CNTA_EMPR, a.TI_AUXI_EMPR, c.NO_TIPO_AUXI,              
 a.CO_AUXI_EMPR, ' ', a.TI_DOCU, e.NO_DOCU, a.NU_DOCU, a.FE_DOCU, a.FE_DOCU_VENC,a.FE_PAGO,               
 a.TI_OPER, a.CO_MONE, a.TI_CAMB, a.FA_CAMB, a.FA_CAMB_DIAR, a.IM_MVTO_ORIG, a.IM_MVTO_CNTB,              
 a.CO_ORDE_SERV, a.NO_GIRA, a.FE_ENTR_CHEQ, a.FE_PROG_CHEQ, a.DE_GLOS, a.TI_DOCU_REFE,               
 a.NU_DOCU_REFE, a.FE_DOCU_REFE, a.SI_MVTO_CNTB, a.FE_ASTO_CNTB, b.ST_AUXI_EMPR,               
 b.ST_DOCU_CNTB, c.NV_INFO_AUXI, a.CO_CLAV_TAOR, a.CO_USUA_MODI, a.FE_USUA_MODI,               
 a.IM_MVTO_RETE, a.PO_DIST, a.NU_SECU_DIST, a.TI_DOCU_DETR, a.NU_DOCU_DETR, a.FE_DOCU_DETR,        
 a.CO_MEPA, a.ST_EXON_INAF, a.ST_COMP  
From TXMVTO_CNTB a           
  Left Outer Join TTAUXI_EMPR c          
  On c.CO_EMPR = a.CO_EMPR              
  And c.TI_AUXI_EMPR = a.TI_AUXI_EMPR              
  Left Outer Join TTDOCU_CNTB e          
  On e.TI_DOCU = a.TI_DOCU,           
  TMPLAN_EMPR b          
Where a.CO_EMPR = @ISCO_EMPR              
and a.NU_CNTB_EMPR = @INNU_CNTB_EMPR              
and a.CO_UNID_CNTB = @ISCO_UNID_CNTB              
and a.CO_OPRC_CNTB = @ISCO_OPRC_CNTB              
and a.NU_ANNO  = @INNU_ANNO              
and a.NU_MESE  = @INNU_MESE              
and a.NU_ASTO  = @ISNU_ASTO              
and b.CO_EMPR  = a.CO_EMPR              
and b.NU_ANNO  = 9999              
and b.CO_CNTA_EMPR = a.CO_CNTA_EMPR              
Order By a.NU_SECU              
End               
          
Return              
/*---------------------------------------- Fin -------------------------------------*/            
        
    

GO
